0 PRINT"[147]":POKE53280,4:POKE53281,0:POKE646,7
1 PRINT"COMMODARES PROBLEM #27-3:"
2 PRINT"    DOUBLE WEDGE"
3 PRINT"SOLUTION BY"
4 PRINT"    JOHN R. PRAGER"
10 INPUT"PHRASE ";A$
20 L=LEN(A$):B=1 AND L:P=2-B
30 S=INT(.5+L/2)
40 FOR J=S TO 1 STEP -1
50 PRINT SPC(J-1)MID$(A$,J,P):P=P+2:NEXT